From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 13 Jun 2007 00:03:49 +0000 (+0000)
Subject: (shell): Use user-emacs-directory.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18454
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=516177d385ab2d7923a3e13674cf6fcf0f6625d0;p=emacs.git

(shell): Use user-emacs-directory.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index a218981256a..9e07540d9d8 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -557,7 +557,7 @@ Otherwise, one argument `-i' is passed to the shell.
 	   (startfile (concat "~/.emacs_" name))
 	   (xargs-name (intern-soft (concat "explicit-" name "-args"))))
       (unless (file-exists-p startfile)
-	(setq startfile (concat "~/.emacs.d/init_" name ".sh")))
+	(setq startfile (concat user-emacs-directory "init_" name ".sh")))
       (apply 'make-comint-in-buffer "shell" buffer prog
 	     (if (file-exists-p startfile) startfile)
 	     (if (and xargs-name (boundp xargs-name))